home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 04.a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 0 rem *******************************
  2. 1 rem *                             *
  3. 2 rem *    adventure-cracker        *
  4. 3 rem *      version 1.0            *
  5. 4 rem *   von mright$chael nickles  *
  6. 5 rem *                             *
  7. 6 rem *******************************
  8. 10 print"[147]adventure-cracker version 1.0           [146]";
  9. 20 print"bitte disk mit spiel einlegen return[146]"
  10. 25 poke198,0:wait198,1
  11. 30 open1,8,15:open2,8,2,"#"
  12. 50 rem hauptmenue
  13. 51 print"einzel / alles"
  14. 52 getx$:ifx$=""then52
  15. 55 ifx$="e"then200
  16. 57 ifx$="a"then100
  17. 58 goto52
  18. 100 rem alle daten von disk lesen
  19. 105 input"ab welchem track ";an
  20. 110 for t=an to 35: rem tracks
  21. 112 rem as=anzahl der sektoren
  22. 113 if t<18        then as=21
  23. 114 if t>17andt<25 then as=19
  24. 115 if t>24andt<31 then as=18
  25. 116 if t>30        then as=17
  26. 118 for s=1 to as: rem sectors
  27. 120 gosub1000:rem daten in buffer lesen
  28. 130 gosub2000:rem daten ausdrucken
  29. 140 next s
  30. 150 next t
  31. 200 rem einzelne daten lesen
  32. 201 print
  33. 205 input"track ";t
  34. 206 input"sektor ";s
  35. 210 ift<1ort>35then200
  36. 211 ifs<1then200
  37. 212 ift<18ands>21then200
  38. 213 ift>17andt<25ands>19then200
  39. 214 ift>24andt<31ands>18then200
  40. 215 ift>30ands>17then200
  41. 220 gosub1000
  42. 230 gosub2000
  43. 250 goto200
  44. 1000 :
  45. 1001 rem daten in buffer lesen
  46. 1002 :
  47. 1005 print#1,"u1 2 0 ";t;s
  48. 1010 return
  49. 2000 :
  50. 2001 rem buffer auslesen
  51. 2002 :m$=""
  52. 2010 fori=0to255
  53. 2020 : get#2,a$
  54. 2021 ifa$=""then2030
  55. 2022 m=asc(a$) : rem checken
  56. 2023 ifm>64andm<91thenprinta$;
  57. 2024 ifm>96andm<123thenprinta$;
  58. 2030 ifm=46orm=58orm=59orm=63orm=32orm=160orval(a$)>0thenprinta$;
  59. 2040 nexti
  60. 2050 return
  61.